home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MENU_UTL / LIBPAS / TESTDIR.PAS < prev    next >
Pascal/Delphi Source File  |  1991-06-14  |  335b  |  20 lines

  1. program testdir;
  2. { program attempts to read directory }
  3. { shows filenames as column }
  4.  
  5. uses dos,crt,library;
  6.  
  7. var
  8.   Fchoice  : FnameType;
  9.   i,n      : integer;
  10.  
  11.  
  12.  
  13. { *************** MAIN PROGRAM *************** }
  14.  
  15. begin
  16.   ClrScr;
  17.   Fchoice := Get_File_Menu('*.*',8,10,30);
  18.   Put_string(Fchoice,24,1,0);
  19.   ReadLn;
  20. end.